#!/usr/bin/perl -w

use strict;
use Storable;

my $MAIL;
$MAIL->{TO} = $ARGV[0];
$MAIL->{FROM} = $ARGV[1];
$MAIL->{BODY} = $ARGV[2];
$MAIL->{GETCH} = 0x04;

store $MAIL, "AmericanMail.rc";

